home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / content / devel.tls / icp / vbsamp / ftpexpl.exe / UNCREMOV.FRM < prev    next >
Text File  |  1995-09-21  |  3KB  |  79 lines
  1. VERSION 4.00
  2. Begin VB.Form UNCRemove 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Disconnect Network Path"
  5.    ClientHeight    =   2055
  6.    ClientLeft      =   4200
  7.    ClientTop       =   1455
  8.    ClientWidth     =   5760
  9.    Height          =   2460
  10.    Left            =   4140
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2055
  16.    ScaleWidth      =   5760
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1110
  19.    Width           =   5880
  20.    Begin VB.ListBox lbConnections 
  21.       Height          =   1395
  22.       ItemData        =   "UNCRemov.frx":0000
  23.       Left            =   180
  24.       List            =   "UNCRemov.frx":0002
  25.       MultiSelect     =   2  'Extended
  26.       TabIndex        =   2
  27.       Top             =   480
  28.       Width           =   4095
  29.    End
  30.    Begin VB.CommandButton cmdCancel 
  31.       Cancel          =   -1  'True
  32.       Caption         =   "Cancel"
  33.       Height          =   345
  34.       Left            =   4470
  35.       TabIndex        =   3
  36.       Top             =   600
  37.       Width           =   1125
  38.    End
  39.    Begin VB.CommandButton cmdOK 
  40.       Caption         =   "OK"
  41.       Height          =   345
  42.       Left            =   4470
  43.       TabIndex        =   0
  44.       Top             =   150
  45.       Width           =   1125
  46.    End
  47.    Begin VB.Label lbList 
  48.       AutoSize        =   -1  'True
  49.       Caption         =   "&Path:"
  50.       Height          =   195
  51.       Left            =   210
  52.       TabIndex        =   1
  53.       Top             =   150
  54.       Width           =   375
  55.    End
  56. End
  57. Attribute VB_Name = "UNCRemove"
  58. Attribute VB_Creatable = False
  59. Attribute VB_Exposed = False
  60. Option Explicit
  61. Dim ServerID(100) As String
  62.  
  63. Private Sub cmdCancel_Click()
  64.     lbConnections.Clear                         ' Clear Listbox Entries...
  65.     Me.Hide                                     ' Hide Form But Keep It Active
  66. End Sub
  67. Private Sub cmdOK_Click()
  68.     Me.Hide                                     ' Hide Form But Keep It Active
  69. End Sub
  70. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  71.     If (UnloadMode = vbFormControlMenu) Then    ' Was Form Closed With ControlMenu?
  72.         Cancel = True                           ' Cancel Request
  73.         Call cmdCancel_Click                    ' Simulate Cancel Button Click
  74.     End If
  75. End Sub
  76. Private Sub lbConnections_DblClick()
  77.     Call cmdOK_Click                            ' Hit OK Automatically
  78. End Sub
  79.